home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL52.LIT < prev    next >
Text File  |  1990-01-13  |  838b  |  18 lines
  1. *[FOSSIL52.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB5.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 63320 SUB ShellExit (ShellTem$) STATIC
  9.       CALL DelayTime (8 + ZBPS)
  10.       CLOSE 3
  11.       OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1
  12.       CLOSE 2
  13.       CALL MetaGSR (ShellTem$,ZFalse)
  14.       SHELL ShellTem$
  15.       CALL DelayTime (2)
  16.       CALL RestoreCom
  17.       END SUB
  18.